home *** CD-ROM | disk | FTP | other *** search
/ Painter Bear's Language Bridge — Italian / Bridge_ponte_itialian.iso / pc / xtras / -pmatic.dir / Internal_12_info sheet.ls < prev    next >
Encoding:
Text File  |  1999-09-22  |  1.2 KB  |  34 lines
  1. on mouseUp
  2.   global gMonoFont, gPropFont, gCanPrint
  3.   if gCanPrint = 0 then
  4.     alert("The PrintOMatic Xtra is not installed. Printing is disabled.")
  5.     exit
  6.   end if
  7.   set doc to new(xtra("PrintOMatic"))
  8.   if not objectp(doc) then
  9.     alert("There is no currently selected printer. Printing features are disabled.")
  10.   else
  11.     cursor(4)
  12.     setDocumentName(doc, "PrintOMatic Xtra Info Sheet")
  13.     newPage(doc)
  14.     newFrame(doc, rect(0, 0, getPageWidth(doc), 30), 0)
  15.     set colW to (getPageWidth(doc) / 2) - 18
  16.     set picHt to the height of cast "illustration" * (colW - 24) / the width of cast "illustration"
  17.     drawPicture(doc, member "illustration", rect(0, 30, colW - 24, 30 + picHt))
  18.     newFrame(doc, rect(0, 30 + picHt + 20, colW, getPageHeight(doc)), 1)
  19.     append(doc, member "infoblurb1", 0)
  20.     newFrame(doc, rect(getPageWidth(doc) / 2, 30 + picHt + 20, getPageWidth(doc), getPageHeight(doc)), 0)
  21.     append(doc, member "infoblurb2", 0)
  22.     cursor(-1)
  23.     if word 1 of the text of cast the castNum of sprite the clickOn = "Preview" then
  24.       printPreview(doc)
  25.     else
  26.       if doJobSetup(doc) = 1 then
  27.         updateStage()
  28.         print(doc)
  29.       end if
  30.     end if
  31.     set doc to 0
  32.   end if
  33. end
  34.